home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / X-Demos and Utilities / (c)x2.d64 / spredit.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  40 lines
  1. 10 V=53248:POKEV+32,254:POKEV+27,3:POKEV,24:POKEV+1,50:POKE2040,11
  2. 20 FORI=704TO766:POKEI,0:NEXT:POKEV+21,3:FORI=704TO726STEP3:POKEI,255:NEXT
  3. 30 D$="------------------------":GOSUB60000:X=24:Y=50:F=255
  4. 40 C$=" BFCXYDSLO"
  5. 50 POKE2041,13:FORI=832TO894:POKEI,0:NEXT:POKEV+2,255:POKEV+3,200
  6. 60 POKEV+23,2:POKEV+29,2:POKEV+40,3
  7. 100 GETA$:IFA$=""THEN100
  8. 110 IFA$="[145]"ANDR>0THENR=R-1:Y=Y-8:POKEV+1,Y:GOTO100
  9. 120 IFA$=""ANDR<20THENR=R+1:Y=Y+8:POKEV+1,Y:GOTO100
  10. 130 IFA$="[157]"ANDC>0THENC=C-1:X=X-8:POKEV,X:GOTO100
  11. 140 IFA$=""ANDC<23THENC=C+1:X=X+8:POKEV,X:GOTO100
  12. 150 IFA$=""ORA$="[147]"THENC=0:R=0:X=24:Y=50:POKEV,X:POKEV+1,Y:GOTO100
  13. 160 FORI=1TOLEN(C$):IFA$=MID$(C$,I,1)THENA=I:I=LEN(C$)
  14. 170 NEXT:IFA=0THEN100
  15. 180 ONAGOTO200,300,310,320,330,340,350
  16. 200 B=R*3+INT(C/8):BIT=2^(7-(C-(INT(C/8)*8)))
  17. 210 IF PEEK(832+B)ANDBITTHENPOKE832+B,PEEK(832+B)-BIT:GOTO230
  18. 220 POKE832+B,PEEK(832+B)+(BIT)
  19. 230 SC=1024+C+(40*R):IFPEEK(SC)=81THENPOKESC,45:GOTO100
  20. 240 POKESC,81:GOTO100
  21. 300 D$="[144]------------------------":FORI=832TO894:POKEI,0:NEXT:GOSUB60000:GOTO100
  22. 310 D$="[144][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":FORI=832TO894:POKEI,F:NEXT:GOSUB60000:GOTO100
  23. 320 POKEV+40,PEEK(V+40)+1AND7:GOTO100
  24. 330 POKEV+29,PEEK(V+29)+2AND(2):GOTO100
  25. 340 POKEV+23,PEEK(V+23)+2AND(2):GOTO100
  26. 350 L=60000:J=0:PRINT"[147]":FORI=832TO894
  27. 360 IFJ=0THENPRINTL"DATA";:J=J+1:L=L+10
  28. 370 PRINTPEEK(I)"[157],";:J=J+1:IFJ=9THENPRINT"[157] ":J=0
  29. 380 NEXT:POKEV+21,0:NEW
  30. 60000 PRINT"[144][147]";:FORI=1TO21:PRINTD$:NEXT
  31. 60010 PRINT""TAB(27)"B BLANK
  32. 60020 [153][163]27)"F FILL
  33. 60030 PRINTTAB(27)"C COLOUR"
  34. 60040 PRINTTAB(27)"X SCALE X
  35. 60050 [153][163]27)"Y SCALE Y
  36. 60060 REMPRINTTAB(27)"S SAVE
  37. 60070 [143]PRINTTAB(27)"L LOAD
  38. 60080 PRINTTAB(27)"D DATA
  39. 60090 [142]
  40.